home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / macros / quad9.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  207b  |  11 lines
  1. /* script to create a quad9 element */
  2. options results
  3.  
  4. if show('ports', "AMI2D") then do
  5.     address ami2d
  6.     'get material'
  7.     if length(result) > 0 then 'quad9 0 'result%1
  8.     else 'quad9 0 1'
  9. end
  10. exit
  11.